home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / GNU / TILEFORTH / TILE / TILE~ / !Tile / test / dialog < prev    next >
Text File  |  1992-04-20  |  509b  |  35 lines
  1. .( Loading dialog box test code... ) cr
  2.  
  3. string dialog
  4.  
  5. ( Dialog box handle )
  6.  
  7. variable handle
  8.  
  9. ( Event handler for box )
  10.  
  11. : buttons ( field -- ) 3 handle @ setnumeric ;
  12.  
  13. ( Create dialog box, assign event handler, store handle )
  14.  
  15. " dialog" ' buttons new handle !
  16.  
  17. ( Set some fields, and display box )
  18.  
  19. : showeg
  20.   0 2   handle @ setnumeric
  21.   100 3 handle @ setnumeric
  22.         handle @ show ;
  23.  
  24. : hideeg
  25.   handle @ hide ;
  26.  
  27. : killeg
  28.   handle @ dispose ;
  29.  
  30. : showtest
  31.   showeg
  32.   begin
  33.   (event) process
  34.   0 until ;
  35.